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-Sep-1984 
SMOD = put the screen in insert mode' 
MOD ( ' Put t 
DENT = 'v04-000' 
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BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


!® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'* ONLY IN ACCOR “’ NCE i THE TERMS OF SUCH LICENSE AND WITH THE 


'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- oneponat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


is DIGITAL ASSUMES NO RESPONS 
't SOFTWARE ON EQUIPMENT WHIC 
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FACILITY: EDT -- The DEC Standard Editor 
ABSTRACT: 


This module puts the screen in insert mode. The opposite 
of insert mode is replace mode. 


ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: John Sauter, CREATION DATE: April 1, 1983 
MODIFIED BY: 


1-001 = Original. JBS 01-Apr-1983 
1-002 - Improve the appearance of the Listing. JBS 17-Jun-1983 
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Oue000 Declarations o1 “ele 30071382 9}: 32: 34 EDT SREISER TheMOB OL dL, row (2 

: ? $3 } RSBTTL ‘Declarations’ : 

i 3g | | TABLE OF CONTENTS: ; 

; 4 053 1— ; 

ae 0 4 REQUIRE 'EDTSRC:TRAROUNAM'; ; 

: 494 1 FORWARD ROUTINE ; 

; 58 495 1 EDTS$SC_INS_MODE : NOVALUE; : 

; 26 199 i : 

a | 498 1 | INCLUDE FILES: 

8 3 1! : 

: 64 301 1 REQUIRE "EDTSRC:EDTREQ'; i 

: 66 06 5 1! : 4 

s 67 bess 1 ! MACROS: : 1 

; «668 639 1 | ; 

Rs ical i] 

> 71 642 1 | EQUATED SYMBOLS: ; | 

a. oece 1 - 

: 2% 0645 1 BIND ; | 

; f3 0646 INSERT_STRING = UPLIT (XSTRING (CHAR (ASC_K_ESC), 'C4h')); : 

: 77 0648 1 LITERAL oa} 

7: 3662 1 INSERT_STRING_LEN = 4; : 1 

: bo beet | : 

; 81 069¢ OWN STORAGE: : 

ef ies he pee 4 

: 85 0656 | | EXTERNAL REFERENCES: i 

; 87 0658 1: In the routine : 
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ZSBTTL ‘EDTSSSC_INS_MC_E = put the screen in insert mode’ 


GLOBAL ROUTINE EDTS$.C_INS_MODE 
: NOVALUE = 


'e4¢ 


FUNCTIONAL DESCRIPTION: 


FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
EDT$$G_INSERT_MODE 
i ROUTINE VALUE: 
NONE 
SIDE EFFECTS 
NONE 


BEGIN 


EXTERNAL ROUTINE 
EDTSSFMT_LIT; 


EXTERNAL 
EDT$$G_INSERT_MODE; 


EDTSSFMT LIT CINSERT_STRING, INSERT_STRING_LEN); 
EDTSSG_IRSERT MODE = 1; 


AX-11 Oh iesose oe 
EDT. SRCJSCRINSMOD.BLI; 


! Put the screen in insert (not replace) mode 


This routine puts the screen in insert mode (that is, not replace mode). 


! 1 = in insert mode 


3 ! of routine EDT$$SC_INS_MODE 


- TITLE 
- IDENT 
~PSECT 
ASCII 


68 34 5B 1B 00000 P.AAA: 


INSERT_STRING= 
.EXTRN 


0000 00000 -ENTRY 


EDTSSCRINSMOD EDTSSCRINSMOD - put the screen in 
nsert mode 

\V04-000\ 

-EDTSCODE,.NOWRT, SHR, PIC,2 

<27>\C4h\ ; 


P.AAA 
EDTSSFMT_LIT, EDTS$G_INSERT_MODE 
EDTSSSC_INS_MODE, Save nothing 
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(3) 
rs fe BP PUSHAB INSERT STRING ; corr 

G F CALLS # eDTS FMT_LIT : 
iitdaitdts 88 ¢ 00 E MOVL Ag EDT $6" INSERT _MODE t 0700 
4 0001 RET : 0701 


; Routine Size: 22 bytes, Routine Base: _EDTSCODE + 0004 


3 13 0702 1 
5 ws 0705 1 !<BLF/PAGE> 


Size: 22 code + 4 data bytes 
Run Time: 6 :08. 
Eeesed Time: 311. 

s/CPU Min 791 


Lenenes/CPU-Rip: 12807 
Y Used: 51 pages 
me ation Complete 
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EDTSSCRINSMOD EDTSSCRINSMOD = put the screen in insert mode -Sep-19 : AX-11 BLi 2 V4.0-74 P 
042000 EDTSESC_ INS. MODE’ = put the screen in insert mod 1 12-8¢8 Sep 71984 9}: 32:33 feor. SRCIS ngnOD “OL, _ 
; 136 070s } END ! of module EDTSSCRINSMOD 
: 137 706 0 ELUDOM 
3 PSECT SUMMARY 
; Name Bytes Attributes 
: -EDTSCODE 26 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
; eocccewe SyEhel§ eooceece Pages Processing 
: File Total Loaded Percent Mapped me 
: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 1 40 :00. 
; RSET EDT. SRCIPSECTS.L32;1 2 1 30 7 $3079 
3 COMMAND QUALIFIERS 
: ait SS/CurCKaCFIELD. - INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=L1S$:SCRINSMOD/OBJ=0BJ$:SCRINSMOD MSRC$:SCRINSMOD.BLI/UPDATE=(ENHS:S 
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